home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / lightCycleWheel.wwModel / model.eve next >
Encoding:
Text File  |  1995-03-22  |  2.5 KB  |  78 lines
  1. set surface(metal) ECDentedMetalEffect
  2. set surface(rubber) RCRubber
  3.  
  4. set piston(bounce) 0.0
  5. set piston(color) {0.924665 0.901624 1.000000};
  6. set piston(radius) {0.600000};
  7. set piston(thetaMax) {360.0};
  8. set piston(zMin) {0.0};
  9. set piston(xTranslate) {0};
  10. set piston(xRotate) {90.000000};
  11. set piston(zMax) {3.0};
  12. set piston(zTranslate) {0};
  13. set piston(zRotate) {0};
  14. set piston(yTranslate) {11.000000};
  15.  
  16. set gasket(thetaMax) {360.0};
  17. set gasket(minorRadius) {0.200000};
  18. set gasket(phiMin) {0.0};
  19. set gasket(phiMax) {180.0};
  20. set gasket(majorRadius) {0.400000};
  21. set gasket(color) {0.000000 0.000000 0.000000};
  22. set gasket(xRotate) {90.000000};
  23.  
  24. set fork(color) {0.924665 0.901624 1.000000};
  25. set fork(yScale) {3.000000};
  26. set fork(xScale) {0.565574};
  27. set fork(zScale) {2.000000};
  28. set fork(thetaMax) {180.000000};
  29. set fork(minorRadius) {0.333333};
  30. set fork(phiMin) {0.0};
  31. set fork(phiMax) {360.0};
  32. set fork(majorRadius) {2.0};
  33.  
  34. set topOfFork(radius) {0.400000};
  35. set topOfFork(thetaMax) {360.0};
  36. set topOfFork(zMin) {-3.0};
  37. set topOfFork(xTranslate) {0};
  38. set topOfFork(xRotate) {90.000000};
  39. set topOfFork(zMax) {1.0};
  40. set topOfFork(zTranslate) {0};
  41. set topOfFork(zRotate) {0};
  42. set topOfFork(yTranslate) {7.000000};
  43.  
  44. startShape Support
  45.     startShape Piston
  46.         EveCmd {Color $piston(color)}
  47.         Surface $surface(metal)
  48.           EveCmd {Translate 0 $piston(bounce) 0}
  49.             TransformBegin
  50.             EveCmd {Translate $piston(xTranslate) $piston(yTranslate) $piston(zTranslate)}
  51.           EveCmd {Rotate $piston(xRotate) 1 0 0 }
  52.           EveCmd {Cylinder $piston(radius) $piston(zMin) $piston(zMax) $piston(thetaMax)}
  53.         TransformEnd
  54.         startShape Gasket ;
  55.             Surface $surface(rubber)
  56.             EveCmd {Color $gasket(color)}
  57.              EveCmd {set gasket(yTranslate) [expr {$piston(yTranslate) - $piston(zMax)}]}
  58.             EveCmd {Translate 0 $gasket(yTranslate) 0}
  59.             Rotate $gasket(xRotate) 1 0 0
  60.             EveCmd {Torus $gasket(majorRadius) $gasket(minorRadius) $gasket(phiMin) $gasket(phiMax) $gasket(thetaMax)}
  61.         endShape
  62.     endShape
  63.     startShape aFork
  64.         EveCmd {Color $fork(color)}
  65.         Surface $surface(metal)
  66.             TransformBegin
  67.             EveCmd {Translate $topOfFork(xTranslate) $topOfFork(yTranslate) $topOfFork(zTranslate)}
  68.           EveCmd {Rotate $topOfFork(xRotate) 1 0 0 }
  69.           EveCmd {Cylinder $topOfFork(radius) $topOfFork(zMin) $topOfFork(zMax) $topOfFork(thetaMax)}
  70.         TransformEnd
  71.             TransformBegin
  72.             EveCmd {Scale $fork(xScale) $fork(yScale) $fork(zScale)}
  73.           EveCmd {Torus $fork(majorRadius) $fork(minorRadius) $fork(phiMin) $fork(phiMax) $fork(thetaMax)}
  74.         TransformEnd
  75.         source $modelPath/wheel.eve
  76.     endShape
  77. endShape
  78.